perm filename FMTDAT[S,WD] blob
sn#337907 filedate 1978-05-11 generic text, type T, neo UTF8
00100 (DEFPROP FOO
00200 (LAMBDA (U V W X Y Z)
00300 (COMMENT THE MAN IN THE GREY FLANNEL SUIT WAS
00400 (LAMBDA (U V W X Y Z) (CAR (CADR (FOO X (CAR X) (CDDDDDDDD~
00500 DDR X))))) (A B C D E F G H I J K L M N OP Q R S T U V W X Y Z)))
00600 EXPR)
00700
00800 (DE (TSTFMT XPR)
00900 (PROG (LINCNT) (SETQ LINCNT 1) (RETURN (FORMANEXPR XPR))))
01000
01100 (SETQ BAR
01200 (QUOTE (MAPCAR (FUNCTION (LAMBDA (PAIR)
01300 (PROG2 (SET (CAR PAIR)
01400 (INTERN (ASCII (CADR PAIR))))
01500 (CAR PAIR))))
01600 (QUOTE ((*SP 40) (*TB 11)
01700 (*CR 15)
01800 (*LF 12)
01900 (*VT 13)
02000 (*FF 14)
02100 (*CO 54)
02200 (*PT 56)
02300 (*LP 50)
02400 (*RP 51)
02500 (*SL 57)
02600 (*AM 33)
02700 (*AT 100)
02800 (*RO 177)
02900 (*COLON 72)
03000 (*LB 133)
03100 (*RB 135))))))
03200